inherited frmFixAssetDepreciated: TfrmFixAssetDepreciated
  Left = 407
  Top = 168
  BorderIcons = [biSystemMenu, biMaximize]
  Caption = #26399#38388#22266#23450#36164#20135#35745#25552#25240#26087
  ClientHeight = 533
  ClientWidth = 672
  FormStyle = fsStayOnTop
  OnResize = FormResize
  ExplicitWidth = 680
  ExplicitHeight = 560
  PixelsPerInch = 96
  TextHeight = 12
  inherited pnlBottom: TPanel
    Top = 477
    Width = 672
    Height = 56
    ExplicitTop = 477
    ExplicitWidth = 672
    ExplicitHeight = 56
    inherited btnOK: TcxButton
      Left = 481
      Top = 16
      Caption = #35843#38405#20973#35777
      ModalResult = 0
      ExplicitLeft = 481
      ExplicitTop = 16
    end
    inherited btnCancel: TcxButton
      Left = 583
      Top = 16
      OnClick = btnCancelClick
      ExplicitLeft = 583
      ExplicitTop = 16
    end
    object btnDepr: TcxButton
      Left = 391
      Top = 16
      Width = 75
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = #35745#25552#25240#26087
      TabOrder = 2
      OnClick = btnDeprClick
    end
  end
  inherited Panel1: TPanel
    Width = 672
    ExplicitWidth = 672
    inherited labFuncName: TLabel
      Width = 156
      Caption = #26399#38388#22266#23450#36164#20135#35745#25552#25240#26087#25968#25454
      ExplicitWidth = 156
    end
    inherited labFuncDesc: TLabel
      Left = 237
      Visible = False
      ExplicitLeft = 237
    end
    inherited img3: TImage
      Left = 745
      ExplicitLeft = 621
    end
    inherited Bevel1: TBevel
      Width = 672
      ExplicitWidth = 672
    end
  end
  object grdDepr: TcxGrid [2]
    Left = 0
    Top = 25
    Width = 672
    Height = 220
    Align = alTop
    TabOrder = 2
    object viewDepr: TcxGridDBTableView
      Navigator.Buttons.CustomButtons = <>
      DataController.DataSource = dsDepr
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Kind = skSum
          Column = colDeprMonthDeprAmt
        end>
      DataController.Summary.SummaryGroups = <>
      OptionsData.Deleting = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsView.ColumnAutoWidth = True
      OptionsView.Footer = True
      OptionsView.GroupByBox = False
      Styles.Background = MainDM.bslBackGroup
      Styles.ContentEven = MainDM.bsEven
      Styles.ContentOdd = MainDM.bsOdd
      Styles.Header = MainDM.bsTitle
      Styles.Selection = MainDM.bsSelect
      object viewDeprColumn1: TcxGridDBColumn
        Caption = #36164#20135#32534#30721
        DataBinding.FieldName = 'AssetCode'
        Width = 80
      end
      object viewDeprColumn2: TcxGridDBColumn
        Caption = #36164#20135#21517#31216
        DataBinding.FieldName = 'Name'
        Width = 100
      end
      object viewDeprColumn3: TcxGridDBColumn
        Caption = #23545#24212#37096#38376
        DataBinding.FieldName = 'deptname'
        Width = 80
      end
      object viewDeprColumn4: TcxGridDBColumn
        Caption = #23545#24212#31185#30446
        DataBinding.FieldName = 'SubCodeName'
        Width = 100
      end
      object colDeprMonthDeprAmt: TcxGridDBColumn
        Caption = #26412#26399#35745#25552#37329#39069
        DataBinding.FieldName = 'MonthDeprAmt'
        Width = 80
      end
    end
    object lvlDepr: TcxGridLevel
      GridView = viewDepr
    end
  end
  object Panel2: TPanel [3]
    Left = 0
    Top = 253
    Width = 672
    Height = 224
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 3
    DesignSize = (
      672
      224)
    object grdVou: TcxGrid
      Left = 0
      Top = 26
      Width = 672
      Height = 198
      Align = alBottom
      Anchors = [akLeft, akTop, akRight, akBottom]
      TabOrder = 0
      object viewVou: TcxGridDBTableView
        Navigator.Buttons.CustomButtons = <>
        DataController.DataSource = dsVou
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <
          item
            Kind = skSum
            Column = colVouMonthDeprAmtDepart
          end>
        DataController.Summary.SummaryGroups = <>
        OptionsData.Deleting = False
        OptionsData.Editing = False
        OptionsData.Inserting = False
        OptionsView.ColumnAutoWidth = True
        OptionsView.Footer = True
        OptionsView.GroupByBox = False
        Styles.Background = MainDM.bslBackGroup
        Styles.ContentEven = MainDM.bsEven
        Styles.ContentOdd = MainDM.bsOdd
        Styles.Header = MainDM.bsTitle
        Styles.Selection = MainDM.bsSelect
        object viewVouColumn1: TcxGridDBColumn
          Caption = #23545#24212#37096#38376
          DataBinding.FieldName = 'deptname'
          Width = 100
        end
        object viewVouColumn2: TcxGridDBColumn
          Caption = #23545#24212#31185#30446
          DataBinding.FieldName = 'SubCodeName'
          Width = 120
        end
        object colVouMonthDeprAmtDepart: TcxGridDBColumn
          Caption = #26412#26399#25240#26087#37329#39069
          DataBinding.FieldName = 'MonthDeprAmtDepart'
          Width = 80
        end
      end
      object lvlVou: TcxGridLevel
        GridView = viewVou
      end
    end
    object cxLabel1: TcxLabel
      Left = 13
      Top = 6
      Caption = #29983#25104#25240#26087#20973#35777#25968#25454
      Transparent = True
    end
    object chkDept: TcxCheckBox
      Left = 304
      Top = 4
      Anchors = [akTop, akRight]
      Caption = #25353#31185#30446#19982#37096#38376#27719#24635#20973#35777#20511#26041#25968#25454
      TabOrder = 2
      Transparent = True
    end
    object chkSub: TcxCheckBox
      Left = 512
      Top = 4
      Anchors = [akTop, akRight]
      Caption = #25353#31185#30446#27719#24635#20973#35777#36151#26041#25968#25454
      TabOrder = 3
      Transparent = True
    end
  end
  object sptDepr: TcxSplitter [4]
    Left = 0
    Top = 245
    Width = 672
    Height = 8
    HotZoneClassName = 'TcxXPTaskBarStyle'
    AlignSplitter = salTop
    Control = grdDepr
  end
  object dsDepr: TDataSource
    DataSet = qryDepr
    Left = 168
    Top = 128
  end
  object dsVou: TDataSource
    DataSet = qryDeprVou
    Left = 176
    Top = 296
  end
  object qryDepr: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      'exec p_finGetDepr :firstday, :filid, :filialefinance')
    Left = 88
    Top = 96
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'firstday'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'filid'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'filialefinance'
        Value = nil
      end>
  end
  object qryDeprVou: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      'exec p_finGetDeprVou :firstday, :filid, :filialefinance')
    Left = 88
    Top = 288
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'firstday'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'filid'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'filialefinance'
        Value = nil
      end>
  end
  object qryDeprVoucher: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      'Select f.FixedAssetID,DprSubID,f.filid'
      
        ',case when f.rawamt-sumdepramt<=round(f.MonthDeprAmt,2) then f.r' +
        'awamt-sumdepramt else round(f.MonthDeprAmt,2) end As MonthDeprAm' +
        't'
      'From tfb_fixedassets f'
      
        'Where f.rawamt-sumdepramt>0 and Round(f.MonthDeprAmt,2)>0 And f.' +
        'UsedDate<:FirstDay'
      ' and ((f.cleared=0) or (f.cleared=1 and f.cleardate>=:FirstDay))')
    Left = 408
    Top = 56
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'FirstDay'
        Value = nil
      end>
  end
  object qryDeprVoucherUnite: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      'Select DprSubID,f.filid'
      
        ',sum(case when f.rawamt-sumdepramt<=round(f.MonthDeprAmt,2) then' +
        ' f.rawamt-sumdepramt else round(f.MonthDeprAmt,2) end) As MonthD' +
        'eprAmt'
      'From tfb_fixedassets f'
      
        'Where f.rawamt-f.sumdepramt>0 and Round(f.MonthDeprAmt,2)>0 And ' +
        'f.UsedDate<:FirstDay'
      
        '  and ((f.cleared=0) or (f.cleared=1 and f.cleardate>=:FirstDay)' +
        ')'
      'Group by DprSubID,f.filid')
    Left = 480
    Top = 72
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'FirstDay'
        Value = nil
      end>
  end
end
